home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler9.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  2.4 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜¥”€øKepler9CircleInter¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritexyrefcntselStar next xStarDesc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R WriteConstellationc lPlanetDescPlanet¸{self Calc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R Writesign |CircleIntersection¸{self Calc¸{self˚{r Read¸{self˚{r WriteCircleLineIntersign xCircleLineIntersection¸{self Calc¸{self˚{r Read¸{self˚{r WriteExtension tExtensionDesc¸{self CalcIntersection p   IntersectionDesc¸{self  Calc!Parallel l"""ParallelDesc!¸{self "Calc#RightAngle h$$$RightAngleDesc#¸{self $Calc%Tangentsign d&&&TangentDesc%¸{self &Calc%¸{self˚{r &Read%¸{self˚{r &Write     NewCircleIntersection
  2. NewCircleLineIntersect NewExtension NewLineIntersection NewParallel NewRightAngle NewTangentܵàflDisplay'Frame'dsc'nextX
  3. Y WH'¸{f x((FrameMsg(˚{msg     )Handler)handle t**FrameDescx0y0scale ext *$|++ +PortDesc¸{P˚{x+CX¸{P˚{y+CY¸{P˚{X+Cx¸{P˚{Y+Cy¸{P˚{x˙{y˘{r¯{col˜{mode +DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode +DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode +DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode +DrawRect¸{P˚{x˙{y ,˘{sêØâflFonts-Font-˜{fontˆ{colı{mode +    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode +    
  4. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode +
  5. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode + FillRect+nofpts
  6. .pnext t///ConsDesc¸{self˚{R /Read¸{self/State¸{self˚{R /    Write/ !"#$%&'*
  7.  0Name0name height"minX$maxX&minY(maxY1Font1,raster0 4|22FontDesc-2 |33Bytes13